home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earkit / news / thor / rexx / fse / unquote.fse < prev    next >
Text File  |  1998-05-24  |  529b  |  31 lines
  1. /*
  2. ** $VER: Unqoute.fse 1.0 (6.9.95)
  3. ** - reduce the layer of qoute chars (">") in a block of text
  4. ** to just one level.
  5. */
  6.  
  7. options results
  8.  
  9. YPOS
  10. currline = result
  11. XPOS
  12. currcolumn = result
  13. MSGLENGTH
  14. lastline = result
  15.  
  16. do i=currline to lastline
  17.         SETPOS 1 i
  18.         GETLINE
  19.         line = result
  20.         if(line ~= "") then do
  21.                 DELETELINES
  22.                 NEWLINE
  23.                 SETPOS 1 i
  24.                 INSERTINPUT ">"||strip(line, L, ">")
  25.         end
  26.         else break
  27. end
  28.  
  29. SETPOS currcolumn currline
  30.  
  31.